* bindings.el (complete-symbol): Run completion-at-point as a fallback.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11fdeae6eaa8314a5836904b91d29bc9ecdb2d10..1d7cfe90f9b1df4f96497eb01ce51d79ceeff044 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-08-02  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * bindings.el (complete-symbol): Run completion-at-point as a fallback.
+
 2010-08-02  Juanma Barranquero  <lekktu@gmail.com>
 
        * term.el (term-delimiter-argument-list): Reflow docstring.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 3ec43b3041fecca8f2117d5b1094dccb6b7d4894..3ce21a578d593705759881b3b4e3c136f77a2b76 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -688,6 +688,7 @@ language you are using."
              (fboundp 'semantic-active-p)
              (semantic-active-p))
         (semantic-ia-complete-symbol))
+        (completion-at-point-functions (completion-at-point))
        (t
         (error "%s"
                (substitute-command-keys